x <- 1100:1
y <- rep(1100,1100)
z <- x/y
zz <- cumprod(z)
min (which(zz < 0.5))